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MODULE CREWIN ( 
LANGUAGE COL 18536) « 
we = 'v04-000' 
BEGIN 


' 
Vee RRA RAAT ARATE RATA AAA AAA AAA AAAS 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
it 
® 
® 
: * 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ® 
: * 
!* THE INFORMATION IM ihiS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ts CORPORAT!ON. * 

os 

bi 

® 

th 

* 

* 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Vee eee 
lee 
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| FACILITY: F11ACP Structure Level 2 
ABSTRACT: 


This routine creates and initializes a file window. 
ENVIRONMENT: 


i 
i 
i 
: STARLET operating system, including privileged system services 
} and internal exec routines. This routine must be called 

in kernel mode. 

i 

i 

i 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Dec-1976 17:10 


! MODIFIED BY: 


4 
4 
i v03-003 cDS0002 Christian D. Saether 18-Apr-1984 
Mask off unused bits when copyin access control flags 
to weob$w_acon, and copy FIBSV_NOLOCK state to WCBSV_NOACCLOCK. 


v03-002 CDS0001 Christian D. Saether 29-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 


Pa 
JCREWIN.B32;1 


vOe-000 If: e098 P3:40:93 DESKS UmGmASPERscHTixconeacrewin.es2:1°%° «18 


; 2 ' v03-001 LMPOO16 L. Mark Pilant p5-Mar- 1982 13:20 

: Fa emove diddling of the COMPLETE bit in the window segments. | 
3; § } : v02-002 LMP0003 L. Mark Pilant, 17-Nov-1981 14:35 
; ? ! Add support for segmented windows. 

; © Boge 1! v02-001 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 

; 6 065 1! Previous revision history moved to F11B8.REV 

; @& 6066 1 !#* 

36 OOF 0067 1 

; «668 0068 1 

>; 69 0069 1 RARY ‘SYSS$LIBRARY:L 

; 70 0070 1 


LIB 19,.52': 

REQUIRE ‘SRCS$:FCPDEF.B32'; 
| 
| 


5 
N 18-5 =1984 00:11:54  VAX#11_ BLiss-32_v4.0-742 Page 3 
v04-000 yen88b= 198s P3:4b:%8 — UNSwGnaSfenschtixcsneacrewin.e32;1°%° (2), 


' Compute the size of the window. If fixed, allocate it and turn it to 
! map VBN 1. If a maximal window is requested (indicated by a size of -1), 
! the window turner will allocate the window. 


: q 196) ! GLOBAL ROUTINE CREATE WINDOW (ACCTL, SIZE, HEADER, PID, FCB) : L_NORM = 
ce: 1968 1 S++ 

; 1064 1! 

:> 1065 1 ! FUNCTIONAL DESCRIPTION: 

cal ar 1308 1! 

a. wr 1067 1! This routine creates a file access window. 
; 79 1068 1! 

; 80 13¢8 1 ! CALLING SEQUENCE: 
; a 1320 : CREATE_WINDOW (ARG1, ARG2, ARG3, ARG4, ARGS) 

ee 1076 1 ! INPUT PARAMETERS: 

; 84 1075 1! ARG1: access control word (from FIB, usually) 

; 1074 1! tb size of window in # of pointers 
a - |] 1075 1! ARGS: address of file header 

; 6 (COST 1076 1! ARG4: PID of accessor 

; 688 1077 1! ARGS: address of file FCB 
; 86489 1078 1! 

; 90 1079 1°! IMPLICIT INPUTS: 

; #691 1080 1! CURRENT_VCB: address of VCB of volume in process 

: 4 i$ ’ CURRENT_UCB: address of UCB of disk in process 

; 94 1983 1 ! OUTPUT PARAMETERS: 

; 9 1084 1! NONE 

; | =96 1085 1! 

- oF 1086 1 ! IMPLICIT OUTPUTS: 

; 1087 1! NONE 

; WW 1088 1! 

: 00 1089 1 ! ROUTINE VALUE: 

3 5 : : address of window 

; 1 1 ¢ 1 ! SIDE EFFECTS: 

: 10 1 1! window block created 

: 10 1094 1! 
: 1 5 1 leo 

: 1096 1 

; 1097 2 BEGIN 

; 1098 2 

; 1099 2 MAP 

3 1100 2 ACCTL : BBLOCK, ' access control flags | 
; 1101 2 HEADER : REF BBLOCK, ! file header arg 

3 ' ¢ § FCB : REF BBLOCK; ' FCB arg 

3 1104 g LOCAL 

3 1105 WINDOW SIZE, ' actual size of window 
3 1106 WINDOW : REF BBLOCK, ! window created | 
; ' M4 PRIMARY WINDOW : REF BBLOCK; ! address of the primary window 
; 3 BIND_COMMON; | 
: 
3 1111 EXTERNAL ROUTINE 

; 1 § ALLOCATE : L_NORM, ! allocate dynamic memory 
Hy ' ? TURN_WINDOW : L_-NORM; ! window turner routine | 
3 ! 5 
5 1 5 
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984 00:11:54 VAX=11 Bliss-32_V4,0-742 
Re 19345538 DISKSVMSMASTER:CF11X.SRCICREWIN.B32; 39 


E; 
Ll 0 
. CURRENT_VCBCVCB$B_WINDOW]; 
NEQ =1 


$12 
EQ 
—~E = 


EGIN 
IF .WINDOW SIZE GTRY MAX WINDOW 
THEN NM INDOQ. SIZE WIND 

IF .WINDOW SIZE E LSsu UMIN WINDOW 

THEN wUINDOO 1fF ets MIN_ WINDOW; 

WINDOW | = ALCOCATE (,WINDOW_SIZE * 6 + WCBSC_LENGTH, WCB_TYPE); 
THEN TURN_WINDOW (.WINDOW, .HEADER, 1, 1); 


EN 
ELSE 
WINDOW = TURN_WINDOW (0, .HEADER, 


} Init cells within the window 
4 
3 
4 
4 
3 
3 
3 
: 
1 


To TDs 


PRIMARY_WINDOW = .WINDOW; 
UNTIL -Q@INDOW EQL 0 


BEGIN 
WINDOWCWCBSL_PID) = .PID; ' accessor PID 
CURRENT_UCB; / original device UCB 
= .ACCTL “6 0,16,07; i access gontrol aif 


= .WIND son cote Aconh i 


his bral Ores. heen 


$V, AGS CCLF arene 


. CLEAN 
THEN WINDOW tucasv -NOACCLOCR ; ' is first longword in FIB. 
WINDOWLWCBSL_FCB) ~ = .FCB; i FCB address 
WINDOWLWCB$V_READ) = 1; read eccess ttuers o| Loved 
WINDOWLWCBSV_WRITE] = .WINDOWCWCBSV_WRITEAC); ! write vei: 
If . ENT_RVN NEQ O THEN WINDOWCWCBSL_RVTJ = stein ‘yeecvcase. tee 
IF .HEADERCFH2$V oe arcmeed te THEN WINDOW UCBSV. R 
IF - HEADER FH2$SV-_WRITCHECK] THEN WINDOWC(WCBSV_WRITEC 

-WINDOWCDWCBSL_LINK); '“set sdahene of next segment 


RETURN .PRIMARY_ WINDOW; 


END; ! end of routine CREATE_WINDOW 


TITLE CREWIN 
SIDENT \V04-000\ 
.EXTRN ALLOCATE, TURN_WINDOW 


-PSECT S$CODE$S,NOWRT,2 


5 | 
(2) | 
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vou-000 130-198 MoreaiTs — BISSUMGMASTERSCETIX«SRCICREWIN.B32;1°%" (26. 


; Routine Size: 201 bytes, Routine Base: S$CODE$ + 0000 


Pm 11 1 
: Hf 18h} EN 


Name Bytes Attributes 
SCODES 201 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


pa ale fe a er a pear ae = Syabols eoore-<- Pages Processing 

: File Total _ Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB8.L32;1 18619 44 0 1000 00:01.9 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INJITIAL,OPTIMIZE)/LIS=LIS$:CREWIN/OBJ=OBJ$:CREWIN MSRCS$:CREWIN/UPDATE=(ENH$: CREWIN) 
Size: 201 code + 0 data bytes 
Run Time: 


} 
| 
| 
| 
PSECT SUMMARY 

| 

: me: $ e 

; Elapsed Time: 337. 

; Lines/CPU Min: 404 

; ee ASM ate 5025 

3 4 Si 221 pages 

3 — tien Complete 
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